' Commodore-Logo  C=  4 Jul 86  
' by Peter Kittel , last change 5 Dec 86

WINDOW 2,"COMMODORE-Logo",(0,0)-(631,186),20
CLS

WHILE INKEY$<>"q" ' infinite loop until q key pressed
f=0.5+0.5*RND(1)    ' random size between 0.5 and 1

PAINT (1,1),1     ' clear screen
LOCATE 2,9
PRINT " Size of logo is random, quit by pressing q. "

uy=f*200/512:ux=f*0.9 ' some scaling factors
ir=107:ar=200:rr=61:fl=170:fk=97:fm=5 ' Logo coordinates
xm=256/f:ym=256/f    ' centre
r1=ir*ir:r2=ar*ar

PALETTE 3,1,0,0        ' red replaces orange
PALETTE 0,0,5/15,10/15 ' other colors normal
PALETTE 1,1,1,1
PALETTE 2,0,0,0

COLOR 0

x =xm+rr ' draw the C 
x2=x-xm:x2=x2*x2
y1=SQR(r1-x2):y2=SQR(r2-x2)+3
LINE (ux*x,uy*(ym+y1))-(ux*x,uy*(ym+y2))
LINE (ux*x,uy*(ym-y1))-(ux*x,uy*(ym-y2))
ph=rr/ir:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ir,0,ph,2*3.14159-ph  
ph=rr/ar:ph=3.14159/2-ATN(ph/SQR(1-ph*ph)):CIRCLE (ux*xm,uy*ym),ux*ar,0,ph,2*3.14159-ph
PAINT(ux*(xm-ir)-3,uy*ym),0  ' paint the C
    
y2=SQR(r1-rr*rr)-fm

COLOR 3 ' lower banner red
AREA (ux*(xm+rr),uy*(ym+fm))
AREA (ux*(xm+rr+fk),uy*(ym+fm))
AREA (ux*(xm+rr+fl),uy*(ym+y2))
AREA (ux*(xm+rr),uy*(ym+y2))
AREA (ux*(xm+rr),uy*(ym+fm))
AREAFILL

COLOR 0 ' upper banner blue
AREA (ux*(xm+rr),uy*(ym-fm))
AREA (ux*(xm+rr+fk),uy*(ym-fm))
AREA (ux*(xm+rr+fl),uy*(ym-y2))
AREA (ux*(xm+rr),uy*(ym-y2))
AREA (ux*(xm+rr),uy*(ym-fm))
AREAFILL

FOR i=1 TO 9000:NEXT ' delay

COLOR 1
AREA(1,1):AREA(625,1):AREA(625,180):AREA(1,180):AREAFILL ' clear screen
WEND

WINDOW CLOSE 2:COLOR 1 ' end
PALETTE 3,1,0.5,0       ' restore orange

END